home *** CD-ROM | disk | FTP | other *** search
/ El Mac 9 / El Mac 9.iso / Shareware / Applications / MathPad 2.4 / XFuns / XFun kit / slider src / slmain.c < prev   
Encoding:
C/C++ Source or Header  |  1996-03-02  |  687 b   |  35 lines  |  [TEXT/CWIE]
  1.  
  2. #include "A4globs.h"        /* magic A4 macros */
  3. #include "callbackg.h"        /* use "global" version of callbacks */
  4. #include "sliders.h"
  5.  
  6. funptr callback;
  7.  
  8. static short handler(EventRecord *theEvent,funptr callbackptr)
  9. {
  10.    int done;
  11.    SetUpA4();
  12.    done = doevent(theEvent);
  13.    RestoreA4();
  14.    return(done);
  15. }
  16.  
  17. static short funcall(double *retval,funptr callbackptr)
  18. {
  19.    int ok;
  20.    SetUpA4();
  21.    ok = dofuncall(retval);
  22.    RestoreA4();
  23.    return(ok);
  24. }
  25.  
  26. void main(funptr callbackptr)
  27. {
  28.     EnterResource();
  29.     callback = callbackptr;    /* save callback in global for callbackg routines */
  30.     AddXfun(FUNNAME,FUNPARMS,&funcall,0L);
  31.     InstallEventHandler(&handler);
  32.     initialize();
  33.     RestoreA4();
  34. }
  35.